home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 05 Programming / CDT128.ARC / BYTE╓STRNG.C next >
Text File  |  2019-04-13  |  2KB  |  53 lines
  1. /***********************************************************************/
  2. /***********************************************************************/
  3. /*                                                                     */
  4. /* ╘HIS PROGRAM IS COPYRIGHT 1986 BY ┴LAN ┘ORINKS.  ╔T MAY BE FREELY   */
  5. /* DISTRIBUTED FOR NON COMMERCIAL USAGE IF THIS COPYRIGHT NOTICE IS    */
  6. /* LEFT INTACT. ├OMMERCIAL USAGE OF THIS PROGRAM IS EXPLICITLY         */
  7. /* FORBIDDEN WITHOUT THE WRITTEN PERMISSION OF THE AUTHOR.             */
  8. /*                                                                     */
  9. /***********************************************************************/
  10. /***********************************************************************/
  11.  
  12.  
  13. /*     CDT VERSION 1.0    PART 6 OF 15   ╩ULY 25, 1986                 */
  14.  
  15.  
  16.  
  17. /***** CONVERT ASCII STRING OF BYTES TO HEX VALUES ***/
  18.  
  19.  
  20.  
  21. #INCLUDE <STDIO.H>
  22. #INCLUDE "DBUG.H"
  23.  
  24. #DEFINE ╘╫╧ñ╬┘┬╠╙   2       /* NUMBER OF ASCII CHARARCTERS PER BYTE */
  25.  
  26. VOID
  27. BYTEñSTRNG()
  28. █
  29.  
  30.     AUTO    CHAR    TSTRNG[3] ;         /* TEMPORARY STRING BUFFER */
  31.     AUTO    INT     I, J ;              /* INDEXES */
  32.     AUTO    INT     K ;                 /* LENGTH OF STRING INPUT BY USER */
  33.     EXTERN  ╒╔╬╘    HATOI() ;
  34.  
  35.     /* TEST FOR EVEN NUMBER OF DIGITS INPUT */
  36.     K = STRLEN(╙╘╥╔╬╟(FND)) ;
  37.     IF ( (K % 2) != 0 )
  38.     █
  39.         PRñUSAGE(0) ;
  40.         ABORT() ;
  41.     ▌
  42.  
  43.     TSTRNG[2] = '\0' ;
  44.     FOR( I = 0, J = 0 ; I < K ; I += 2, J++ )
  45.     █
  46.         STRNCPY( TSTRNG, ( ╙╘╥╔╬╟(FND) + I ), ╘╫╧ñ╬┘┬╠╙ ) ;
  47.         *(╙╘╥╔╬╟(FND) + J) = (CHAR)HATOI(TSTRNG) ; 
  48.     ▌
  49.  
  50.     *(╙╘╥╔╬╟(FND)+J) = '\0' ;        /* SET END OF NEW BYTE STRING */
  51.  
  52. ▌
  53.